```
@echo off
mode con: cols=40 lines=27
setlocal EnableDelayedExpansion

set /A Score=0, Speed=120, Len=3, X=20, Y=12

:: Clear screen
cls

:: Generate food position randomly
set /A FoodX=%random% %% 38 + 1, FoodY=%random% %% 23 + 1

:game_loop
:: Draw snake head and body
set Snake=
for /L %%i in (1,1,%Len%) do set Snake=!Snake!# 
set "Screen=!Snake:~0,2!^t^"
set "Snake=!Snake:~2!"
for /L %%i in (1,1,%Len%) do (
 set /A BodyX%X%, BodyY=Y+i-1
 set "Screen=!Screen!#!"
)

:: Draw food
set "Screen=!Screen:~0,%FoodX%!o!%Screen:~%FoodX%!"
set "Screen=!Screen:~0,%FoodX%!o!%Screen:~%FoodX%!"

:: Print score and screen
set /A X1=X-3, Y1=Y+Len+1
for /L %%i in (1,1,%Len%) do (set /A X1+=1
 set "Screen=!Screen!:!BodyX%%i!,!BodyY%%i!"
)
echo Score: %Score%
echo.
for /L %%i in (1,1,25) do (
 set "Line=!Screen:~0,39!"
 set "Screen=!Screen:~39!"
 set "Line=!Line: =!"
 set "Line=!Line::=:!"
 echo(!Line!
)
echo.

:: Move snake according to input
set "Input="
for /f "usebackq delims=" %%i in (`xcopy /w "%~f0" "%~f0" 2^>nul`) do if not 
defined Input set "Input=%%i" & goto :input_done
:input_done
if /I "%Input%"=="w" if %Y% gtr 1 set /A Y-=1
if /I "%Input%"=="s" if %Y% lss 23 set /A Y+=1
if /I "%Input%"=="a" if %X% gtr 1 set /A X-=1
if /I "%Input%"=="d" if %X% lss 38 set /A X+=1

:: Check if snake eats food
if %X%==%FoodX% if %Y%==%FoodY% (
 set /A Score+=10, Speed-=(%Len%-1)/4*10+10, Len+=1 
 set /A BodyX%Len%=%X%, BodyY%Len%=%Y%
 set /A FoodX=%random% %% 38 + 1, FoodY=%random% %% 23 + 1
)

:: Check if snake hits the wall or itself
if %X%==0 set /A X=39
if %X%==39 set /A X=1
if %Y%==0 set /A Y=24
if %Y%==24 set /A Y=1
for /L %%i in (1,1,%Len%) do if !BodyX%%i!==%X% if !BodyY%%i!==%Y% goto 
:game_over

:: Speed up the game
ping localhost -n 1 -w %Speed% >NUL

goto :game_loop

:game_over
cls
echo Game Over! Your score is %Score%
pause
exit
```